
Partial Class WebForm_ManageProgramV2
    Inherits System.Web.UI.Page

    Protected Sub FormToolBar1_Adding(ByVal source As Object, ByVal e As System.EventArgs) Handles FormToolBar1.Adding
        Me.mvManageProgram.SetActiveView(Me.vwAddProgram)
        Me.AddProgram1.SetInsert()
    End Sub

    Protected Sub FormToolBar1_Searching(ByVal source As Object, ByVal e As System.EventArgs) Handles FormToolBar1.Searching
        Me.mvManageProgram.SetActiveView(Me.vwSearchProgram)
        Me.SearchProgram1.BindGV()
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
        End If
    End Sub

    'Protected Sub lknAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lknAdd.Click
    '    Me.SearchEnlistHeaderControl1.Show()
    'End Sub

    'Protected Sub SearchEnlistHeaderControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchEnlistHeaderControl1.SelectedIndexChanged
    '    MyObj.ShowMessage(Me.SearchEnlistHeaderControl1.SelectedEnlistID)
    'End Sub

    Protected Sub AddProgram1_Canceled(ByVal source As Object, ByVal e As System.EventArgs) Handles AddProgram1.Canceled
        Me.mvManageProgram.SetActiveView(Me.vwSearchProgram)
        Me.SearchProgram1.BindGV()
    End Sub

    Protected Sub AddProgram1_Saved(ByVal source As Object, ByVal e As System.EventArgs) Handles AddProgram1.Saved
        Me.mvManageProgram.SetActiveView(Me.vwSearchProgram)
        Me.SearchProgram1.BindGV()
    End Sub

    Protected Sub SearchProgram1_Loaded(ByVal source As Object, ByVal e As System.EventArgs) Handles SearchProgram1.Loaded
        Me.InitDataForSearch()
    End Sub

    Protected Sub SearchProgram1_Editing(ByVal source As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles SearchProgram1.Editing
        Me.mvManageProgram.SetActiveView(Me.vwAddProgram)
        Me.AddProgram1.Edit(Me.SearchProgram1.SelectedProgramID())
    End Sub

End Class



Partial Class WebForm_ManageProgramV2

    Private Sub InitDataForSearch()
        Me.SearchProgram1.BindGV()
    End Sub
End Class